home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00517.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  136 b   |  8 lines
  1. on switcher
  2.   global switchit, rate, s
  3.   if switchit > (rate / 9 * 7) then
  4.     set switchit to 0
  5.     do("sel" & s & EMPTY)
  6.   end if
  7. end
  8.